home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 4
/
64er_Magazin_Sonderheft_04_86-04_1986_Markt__Technik_de_Disk_1_of_2_Side_A.d64
/
listing 02.a
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
1KB
|
41 lines
60000 rem tabellen einlesen ----------------------------------------------------
60001 :
60100 rem wortschatz-index -----------
60110 dimin(26)
60120 fori=0to26:read in(i):nexti
60130 data 1,4,0,29,32,48,53,64,72,0,74,82,0,88,96,100,107,109,124,160,167
60140 data 170,190,0,0,201
60150 data 211 : rem buchstabe nach z !
60200 rem objekt-tabelle -------------
60210 oz=13:rem anzahl der objekte
60220 dim ob(oz),ox(oz),oa(oz),ou(oz),os(oz)
60230 fori=1tooz
60240 : readob(i),ox(i),oa(i),ou(i),os(i)
60250 nexti
60260 data 1,24 ,1,24 ,164:rem glaskuppel
60262 data 1,0 ,2,95 ,165:rem sand
60264 data 2,34 ,1,34 ,166:rem tunnel
60266 data 3,43 ,1,43 ,167:rem kr.grotte
60268 data 3,102,2,0 ,168:rem quader
60270 data 3,0 ,2,113,169:rem statue
60272 data 3,106,0,0 ,170:rem schwert
60274 data 0,0 ,3,79 ,171:rem zettel
60276 data 0,0 ,3,87 ,172:rem amulett
60278 data 0,76 ,2,91 ,173:rem grube
60279 data 0,161,2,0 ,174:rem oeffnung
60280 data 4,54 ,1,54 ,175:rem felsplat.
60282 data 3,0 ,2,97 ,176:rem kristalle
60500 rem landkarte ------------------
60501 :
60510 dim map(4,10)
60520 fori=1to4
60530 : fori1=1to10
60540 : read map(i,i1)
60550 : nexti1
60560 nexti
60570 data 2,0,0,0,0,0,0,0,0,0
60572 data 3,1,0,0,0,0,0,0,0,0
60574 data 0,2,0,0,0,0,0,0,0,0
60576 data 0,0,0,3,0,0,0,0,0,0
60600 return